unit U_AracYakitGider;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, cxGridLevel,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
  cxControls, cxGridCustomView, cxGrid, siComp;

type
  TfmAracYakitGiderTan = class(TForm)
    cxgrid1: TcxGrid;
    cxgrid1DBTableView1: TcxGridDBTableView;
    cxgrid1DBTableView1ID: TcxGridDBColumn;
    cxgrid1DBTableView1Durumu: TcxGridDBColumn;
    cxgrid1Level1: TcxGridLevel;
    Panel2: TPanel;
    bYeni: TButton;
    Button1: TButton;
    Button4: TButton;
    procedure Button4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmAracYakitGiderTan: TfmAracYakitGiderTan;

implementation

uses ana1;

{$R *.dfm}

procedure TfmAracYakitGiderTan.Button4Click(Sender: TObject);
begin
   close;
end;

procedure TfmAracYakitGiderTan.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin

   Action:=CaFree;
   fmAracYakitGiderTan:=nil;

end;

procedure TfmAracYakitGiderTan.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=27 then close;
end;

end.